Voorbeeld van de instructie Declare

Dit voorbeeld laat zien hoe de instructie Declare op het moduleniveau van een standaardmodule wordt gebruikt om een verwijzing naar een externe procedure in een DLL (Dynamic Link Library) te declareren. U kunt de instructies Declare in klassenmodules plaatsen als de instructies Declare Private zijn.

' Bij Microsoft Windows (16-bit):
Declare Sub MessageBeep Lib "Gebruiker" (ByVal N As Integer)
' Assume SomeBeep is an alias for the procedure name.
Declare Sub MessageBeep Lib "Gebruiker" Alias "Pieptoon"(ByVal N As Integer)
' Use an ordinal in the Alias clause to call GetWinFlags.
Declare Function GetWinFlags Lib "Kernel" Alias "#132"() As Long

' In 32-bit Microsoft Windows systems, specify the library USER32.DLL,
' rather than USER.DLL. You can use conditional compilation to write
' code that can run on either Win32 or Win16.
#If Win32 Then
    Declare Sub MessageBeep Lib "Gebruiker32" (ByVal N As Long)
#Else
    Declare Sub MessageBeep Lib "Gebruiker" (ByVal N As Integer)
#End If